Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/POETRY.DIR/00007_Script_buildPoetryList

Text File | 1995-11-15 | 4KB | 74 lines

on buildPoetryList
  global gPoetryList
  if voidP(gPoetryList) then
    set gPoetryList to [:]
    set gPoetryList to value(field "poetrylist")
    sort gPoetryList
  end if
end buildPoetryList

--on dfgasdfghasdfgdfhg
--  global oPoetryList
--  if voidP(oPoetryList) then
--    set oPoetryList to [:]
--    pL  #P11, ["from LoveÆs LaborÆs Lost", "Poetry.DIR", ""]
--    pL  #P12, ["from The Merchant of Venice", "Poetry.DIR", ""]
--    pL  #P13, ["The Sun Rising", "Poetry.DIR", ""]
--    pL  #P14, ["On Leaping over the Moon", "Poetry.DIR", ""]
--    pL  #P15, ["from Paradise Lost, Book III", "Poetry.DIR", ""]
--    pL  #P16, ["The Definition of Love", "Poetry.DIR", ""]
--    pL  #P21, ["The Copernican System", "Poetry.DIR", ""]
--    pL  #P22, ["To the Evening Star", "Poetry.DIR", ""]
--    pL  #P23, ["The Star", "Poetry.DIR", ""]
--    pL  #P24, ["A Version of OssianÆs Address to the Sun", "Poetry.DIR", ""]
--    pL  #P25, ["from Darkness", "Poetry.DIR", ""]
--    pL  #P26, ["To the Moon", "Poetry.DIR", ""]
--    pL  #P31, ["Ode to Heaven", "Poetry.DIR", ""]
--    pL  #P32, ["Hesperus", "Poetry.DIR",""]
--    pL  #P33, ["Bright Star", "Poetry.DIR", ""]
--    pL  #P34, ["from Al Aaraaf", "Poetry.DIR", ""]
--    pL  #P35, ["from Pippa Passes", "Poetry.DIR", ""]
--    pL  #P41, ["When I Heard the LearnÆd Astronomer", "Poetry.DIR", ""]
--    pL  #P42, ["Lucifer in Starlight", "Poetry.DIR", ""]
--    pL  #P43, ["Between the Sunken Sun and the New Moon", "Poetry.DIR", ""]
--    pL  #P44, ["The Brainùis wider than the Skyù", "Poetry.DIR", ""]
--    pL  #P45, ["ôArcturusö is his other nameù", "Poetry.DIR", ""]
--    pL  #P46, ["The Stars", "Poetry.DIR", ""]
--    pL  #P51, ["Music in the Night", "Poetry.DIR", ""]
--    pL  #P52, ["The Comet at YellÆham", "Poetry.DIR", ""]
--    pL  #P53, ["The Comet at YellÆham", "Poetry.DIR", ""]
--    pL  #P54, ["The Celestial Passion", "Poetry.DIR", ""]
--    pL  #P55, ["Escape at Bedtime", "Poetry.DIR", ""]
--    pL  #P56, ["In Dispraise of the Moon", "Poetry.DIR", ""]
--    pL  #P61, ["The Stars", "Poetry.DIR", ""]
--    pL  #P62, ["Places Among the Stars", "Poetry.DIR", ""]
--    pL  #P63, ["El Hombre", "Poetry.DIR", ""]
--    pL  #P64, ["Stars at Tallapoosa", "Poetry.DIR", ""]
--    pL  #P65, ["Full Moon", "Poetry.DIR", ""]
--    pL  #P66, ["Lunar Baedeker", "Poetry.DIR", ""]
--    pL  #P71, ["Sun Song", "Poetry.DIR", ""]
--    pL  #P72, ["Song for the Northern Quarter", "Poetry.DIR", ""]
--    pL  #P73, ["Stars", "Poetry.DIR", ""]
--    pL  #P74, ["The Robber Moon", "Poetry.DIR", ""]
--    pL  #P75, ["Two Astronomers with Notebooks", "Poetry.DIR", ""]
--    pL  #P76, ["Intermission I", "Poetry.DIR", ""]
--    pL  #P81, ["How to Tell Distances", "Poetry.DIR", ""]
--    pL  #P82, ["Planetary Exchange", "Poetry.DIR", ""]
--    pL  #P83, ["Two Years Later", "Poetry.DIR", ""]
--    pL  #P84, ["A Theory of the Universe", "Poetry.DIR", ""]
--    pL  #P85, ["Sonnet", "Poetry.DIR", ""]
--    pL  #P86, ["Magic Lantern", "Poetry.DIR", ""]
--    pL  #P91, ["Compline", "Poetry.DIR", ""]
--    pL  #P92, ["Dark Star", "Poetry.DIR", ""]
--    pL  #P93, ["Masterpiece", "Poetry.DIR", ""]
--    pL  #P94, ["Apollo 17", "Poetry.DIR", ""]
--    pL  #P95, ["Moonlight", "Poetry.DIR", ""]
--    pL  #P96, ["One Brain", "Poetry.DIR", ""]
--    sort oPoetryList
--  end if
--end dfgasdfghasdfgdfhg
--
--on pL sN,L
--  global oPoetryList
--  addprop oPoetryList,sN,L
--end pL